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lement indépendants de l'importa- 
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NOUS AVONS 
BESOIN DE VOUS. 

Le Club des SHARPENTIERS, VOTRE 
CLUB connaît des difficultés. Un change- 
ment de la politique de la société S.B.M. 
a conduit le Club à assumer son 
indépendance. 

L'indépendance, c'est refuser une disso- 
lution, c'est refuser de se voir dicter une 
conduite par un constructeur. Mais c'est 
aussi beaucoup de problèmes. 

Il faut du temps de la part des gens qui 
s'en occupent. Du temps pour résoudre 
les problèmes de gestion d'une associa- 
tion, du suivi des actions commerciales 
du Club, des réponses au courrier, des 
sponsorisations diverses. Et lorsque ce 
temps est réparti entre 5 ou 6 personnes 
seulement, il devient difficile de conten- 
ter tout le monde. 

Pour tous ces problèmes, NOUS AVONS 
BESOIN DE VOUS, de votre temps, de 
vos compétences, tant au point de vue 
technique, qu'au point de vue comptabi- 
lité ou autre. 

Lorqu'un Club a un fond de roulement 
beaucoup de ces problèmes se résolvent. 
Mais il faut que vous sachiez que le Club 
est reparti le 6 juin avec des caisses à 
ZERO. 


Et c'est avec ces caisses à ZERO que 
nous vous offrons aujourd'hui ce maigre 
Bulletin de 12 pages. 12 pages qui ne 
suffisent même pas pour vous conter en 
détail toutes les difficultés de votre Club. 
Le Club, c'est avant tout un eprit, et c'est 
dans cet esprit que nous avons reçu l'aide 
et le soutien de quelquessociétés. Nous 
citerons au passage le groupe SHIFT Édi- 
tions qui met à notre disposition un ser- 
. veur vidéotex (service qui sera prochai- 
nement disponible et qui se composera 
d'un bulletin et d'une messagerie), la 
Société REPRODIS qui nous offre une 
place sur son stand au SICOB (Niveau 
4 - stand n° 4F4625) ; la Société 
SYCOMEX qui nous a permis grâce à sa 
participation publicitaire de nous offrir ce 
Bulletin. 

D'autres distributeurs étaient prêts à 
nous aider, mais l'influence d'une Société 
qui considère le Bulletin et le Club comme 
un concurrent de ses nouveaux services, 
nous a fermé certaines portes. 

Nous ne polémiquerons pas. Le passé est 
le passé, le présent est ce qu'il est, 
l'AVENIR est à VOUS. 

Pour redémarrer, il nous faut des fonds, 
donc des inscriptions : parlez du CLUB 
autour de vous. Si vous voulez nous 
aider, vous pouvez aussi commander 
d'anciens Bulletins. 


Venez nombreux nous voir au SICOB 
vous pourrez discuter avec les membres 
présents, profiter de l'offre promotion- 
nelle - suite à cette occasion - pour 
acquérir les bulletins qui manquent à 
votre collection. Et surtout, vous aurez 
l'occasion de débattre avec nous des pro- 
blèmes que nous rencontrons, nous 
n'avons qu'un seul but ; faire vivre le 
Club qui est d'abord le VOTRE. 

Quant à ceux qui ne peuvent se déplacer, 
n'hésitez pas à nous écrire, faites nous 
part de vos souhaits, de vos suggestions, 
de vos problèmes. 

Comme je suis sûre que vous allez nous 
écrire en masse, d'avance merci de join- 
dre une enveloppe timbrée self-adressée 
pour la réponse. Et soyez patients nous 
répondrons à toutes vos lettres mais il 
faut aussi fabriquer le bulletin. Nous en 
tiendrons compte pour améliorer votre 
bulletin, votre Club. 

Pour l'instant (il est difficile de changer 
d'adresse lorsque l'on a pas de locaux), 
l'adresse postale demeure chez S.B.M. 
jusqu'à fin septembre, moment où nous 
espérons avoir de nouveaux locaux. Les 
mailings étant onéreux, nous vous indi- 
querons ceux-ci par la voie des médias 
informatiques, et dans le prochain 
Bulletin. 

Luc BURELLER 


Celle-ci s'est tenue au siège du Club des 
SHARPENTIERS, au 151-153 avenue 
Jean-Jaurès à Aubervilliers. L'assistance 
était composée de 26 personnes, qui 
détenaient 1 3 pouvoirs. 

Après clôture des candidatures pour le 
bureau, le président a procédé à l'ouver- 
ture de l'assemblée générale, après avoir 
précisé l'erreur qui s'était glissée dans la 
formulation de la convocation : assem- 
blée à caractère ordinaire et non 
extraordinaire. 

M. BIZOIRRE, vice-président a donné un 
aperçu de la situation financière et morale 
du club. Il en ressort pour l'année 1985 
un résultat nul après passation des amor- 


tissements. Après explications verbales, 
il a été procédé aux votes d'approbation 
des comptes et quitus aux administra- 
teurs. La motion est acceptée par : 

24 voix pour, 

1 voix contre, 

1 abstention. 

A la suite de la question écrite formulée 
par 10 membres de Club, M. BIZOIRRE, 
expose la teneur des comptes arrêtés au 
6 juin 1 986. Plus rien n'étant a l'ordre du 
jour, la question de l'éventuelle reprise du 
club est soulevée. M. BIZOIRRE fait con- 
naître une proposition qui était faite au 
club par la société S.B.M. qui désire 
reprendre ses locaux : 

• don du photocopieur, 

• conservation du matériel du Club au 
stock de la société jusqu'au 1 er 
octobre 

• renvoi téléphonique assuré jusqu'au 
1 er septembre 

• don de matériel pour une valeur de 
144 000 F 

• don de 28 000 F pour renflouer la 
trésorerie du club 

• subvention éventuelle sur présenta- 
tion d'un projet. 


A ce jour, les membres du bureau ne sou- 
haitant pas liquider ce dernier, propose 
que le prochain bureau prennne contact 
avec la direction de S.B.M. Le bureau 
ayant donné sa démission, il est procédé 
à sa réélection. La majorité s'étant expri- 
mée, les membres suivants ont été élus : 
M. GIRONDOT 39 voix vice-prési- 
dent 

M. VIGNAUD 39 voix vice-prési- 
dent 

M. DEHLINGER 38 voix trésorier 
M. BURELLER 37 voix (R) président 
M. CHAGNOUX37 voix (R) secrétaire 
M. REBSAM 37 voix secrétaire 
adjoint 

M. HOUDARD 27 voix trésorier 
Le nouveau bureau composé des person- 
nes citées ci-dessus, a décidé à l'unani- 
mité de nommer M. Pierre Louis de QUA- 
TREBARBES président d'honneur du Club 
des SHARPENTIERS. 

Ce bureau s'est réunit le vendredi 1 3 juin 
à 1 4 heures pour statuer sur les fonctions 
de chaque membre *. 

(*)Pour votre information, la fonction de 
chaque membre est déjà précisée ci- 
dessus, en face de chaque nom. 





Dans ce nouveau numéro, la partie consacrée aux nouveautés est légèrement allégée du fait du manque de 
place. Les 3 nouveaux produits (PC 2500 (s), PC 1 360, PC 1460) que nous vous annonçons sont d'ores et déjà 

commercialisés au Japon. 


PC 2500 (s) 


Ce produit est en fait un appareil dédié, 
réservé aux applications verticales. Au 
point de vue caractéristiques, il diffère du 
PC 2500 classique par le fait qu'il utilise 
des composants quasiments standards ; 
Les ROM sont des 27256 CMOS. Physi- 
quement il a l'aspect d'un PC 2500, mais 
outre le fait qu'il soit pourvu d'une RAM 
plus grande, on trouve à l'intérieur sur 
une carte séparée, un emplacement des- 
tiné à recevoir sa propre application sous 
la forme donc d'une EPROM 27C256. 


CARACTÉRISTIQUES TECHNIQUES: 

idem au PC 25000 sauf : 

CAPACITÉ MÉMOIRE : 

RAM : 12 Ko 

ROM : 2 x 32 + EPROM 32 Ko 
switchable. 


PC 1360 PC 1460 


Le PC 1 360 le le PC 1 460 sont en fait des 
répliques du PC 1350 et du PC 1450, 
avec toutefois quelques spécifications en 
plus. L'augmentation de la capacité 
mémoire en est une. 

Le PC 1 360 est extensible à 64 Ko de 
RAM par adjonction d'une carte mémoire 
de petit format. 

Le PC 1460 est extensible à 32 K de 
RAM. 

La grosse innovation de ces produits 
réside dans le fait que leur Basic supporte 
un jeu d'instructions permettant la ges- 
tion d'un lecteur de disquettes. On peut 
donc penser, que dans un proche ave- 
nir, un tel périphérique sera disponible 
pour ces modèles. 

intéressons nous maintenant au PC 1460 
(dont vous avez pu voir une photo en 
couverture), qui est le produit le plus 
innovateur. 

L'affichage est plus grand que sur le 
1450 : 1 ligne de 24 caractères. 


On note aussi l'apparition du calcul ma - 
trie iel addition, soustraction, multiplica- 
tion, inversion de matrices sont les opé- 
rations les plus courantes disponibles sur 
le 1460. 

Mais l'addition, la soustraction, la multi- 
plication et division par un scalaire, la 
transposition, le calcul du déterminant, la 
mise au carré, l'utilisation d'une mémoire 
de stockage sont autant d' opérations 
désormais possibles. En théorie les matri- 
ces carrées pourraient aller jusqu'à 
99x99. 

Et tout celà très facilement utilisable grâ- 
ce à un éditeur intégré très souple, et 
l'affichage en clair des messages d'erreur 
(en anglais of course). 

Apparition aussi de nouveaux mots 
Basics tels que: RENUM, DELETE, CON- 
VERT, très puissants, et d'ordres spéci- 
fiques pour gérer le traceur CE HOP via 
la sortie série : terminé le temps des 
L PRINT, CHR$... Les statistiques sont 
toujours présentes et la touche SHIFT est 
désormais verouillable par LOCK. 



50F8 : 43 5041 554808 53 54 68 

5720 : b7 09 89 04 bE 56 81 9A F3 

5728 : b7 08 89 07 bE 56 5b bE Fb 

5930 : 59 A5 9A b7 49 89 04 bE 6C 

• Voici les dernières découvertes à propos de ce logiciel : 5938 : 4F 80 9Ab7 51 89 03 bE 4 C 


1. ERREUR DE MNÉMONIQUES 

A partir de 50A3, on trouve 1 8 octets 
donnant les codes et mnémoniques pour 
DEC XL YL UL mais les mnémoniques 
indiqués sont DEC Xh, Yh, Uh. La correc- 
tion consiste à POKER 4C en 50A8, 
50AE et 50B4 : 

POKE &50A8, &4C 
POKE &50AE, &4C 
POKE &50B4, &4C 


2. OUBLI DE COMMANDES 

Le programme ne reconnaît ni RTI ni 
CDV, cette erreur étant quasi impossible 
à corriger. Pour RTI, c'est dommage, 
mais comme on a toujours pas trouvé à 
quoi sert exactement CDV, ce n'est pas 
très grave. Il reste toujours la possibilité 
de POKER directement 8A et FD8E en 
cas de besoin. 

H. CANILLAC 


• De plus pour ceux qui 
n'auraien! pas le module 
mémoire adéquate, voici la 
routine de relogement. 

Mettre le LM à une adresse du type 
&NN00, donc ayant le poids faible nul, 
faire NEW &NN00+&1 200 et tapez le 
programme BASIC de relogement, tapez 
RUN et à la question tapez &NN00, 
quelques secondes plus tard le pro- 
gramme sera relogé. 


CARACTÉRISTIQUES TECHNIQUES : 

PC 1460 : 

AFFICHEUR : 1 ligne de 24 caractères 
CAPACITÉ MÉMOIRE 
RAM : 2, 4, 8, 16, 32 Ko par carte petit 
ou grand format 

RAM UTILISATEUR : 6878 octets avec 
carte 8 Ko 

ROM : 72 Ko 

CALCUL MATRICIEL et STATISTIQUES. 

PC 1360 : 

idem au PC 1350 sauf : 

RAM : Maxi 64 Ko par carte petit format 


CE- 203 M 
CE- 2H16M 


2 cartes RAM devraient être prochaine- 
ment disponibles : 

CE-203M : 32 Ko grand format 
CE-2H16M : 16 Ko petit format. 


« Voici encore quelques 
POKE qui cette fois permet- 
tent de supprimer le BEER si 
au lancement on se trouve 
en BEER OFF. 

POKE &5DAF, &A5, &78, &6B, &D1, 

&83, &03, &BE, &E6, &69, &9A 

POKE &4F41, &5D, &AF 

POKE &4F5B, &5D, &AF 

POKE &4F7C, &5D, &AF 

POKE &4FAD, &5D, &AF 

POKE &4FBC, &5D, &AF 

POKE &566F, &5D, &AF 

POKE &58A5, &5D, &AF 

POKE &59E2, &5D, &AF 

POKE &59F3, &5D, &AF 





• DEUXIÈME APPLICATION : 

Un NEW programmable et ne détruisant 
pas le contenu des variables. 

POKE 110,2,6 
POKE 769,255 

• TROISIÈME APPLICATION : 

MEM retourne le nombre d'octets 
restants. 


Oubliés dans nos colonnes depuis leur sortie sur le mar- 
ché, voici quelques découvertes sur ces laissés pour 
compte par manque de courrier. 


Démunis de Langage Machine (absence 
de l'instruction CALL), ces deux PCs pos- 
sèdent néanmoins les instructions PEEK 
et POKE avec une syntaxe quelque peu 
spéciale. Cette syntaxe est sans doute 
due à des bugs, c'est pourquoi ces ins- 
tructions ne figurent pas dans le mode 
d'emploi. 

PEEK : 

PEEK xxxx en programme comme en 
mode commande. 

POKE: 

POKE xxxx,yyyy en mode commande. 
POKE xxxx,yyyy : dans un programme. 


• Exemple d'une ligne de programme 
avec POKE : 

5 POKE 38,64 : : END étonnant, non ? 
xxxx est une valeur comprise entre 0 et 
4095 (2047 pour le PC 1246). 
yyyy est une valeur comprise entre 0 et 
255. 

• PREMIÈRE APPLICATION : 

Vous avez oublié le mot de passe ! 
Tapez: POKE 729,0 
PASS « i 

Le programme peut alors être listé et 
modifié 


Ce qui est intéressant, c'est le nombre 
d'octets consommés par votre pro- 
gramme, et lui seul ! 

Plutôt que de perdre les variables en 
faisant : 

CLEAR puis 3326-MEM (1278-MEM 
pour le PC 1246) 

Faites * 

((256* ( PEEK 111-6)+ PEEK 
110)-2)/2 

A vous de créer de nouvelles fonctions ! 

• VOICI QUELQUES ADRESSES UTILES 

(il en manque, alors...) : 

De 768 à 4095 (2047 sur 1246) nous 
avons la Ram pgm. 

Cette zone est encadrée comme sur le 
1251, par deux 255. 



Facilement adaptable aux 
autres PCs ce petit pro- 
gramme de jeu a été concu 
sur un PC 1246. En voici la 
règle : 


• Le joueur se trouve sur un terrain de 
5x5 cases. 

• Il se déplace vers le Nord, le Sud, l'Est 
et l'Ouest. 

• Il doit trouver une clé pour gagner la 
sortie. 

• Mais il y a de nombreux monstres qui 
blessent le personnage du joueur et 0 
point de vie = mort. 

• Heureusement il y a quelques potions 
redonnant des points de vie au joueur. 

Vous verrez que ce jeu bien que simple, 

est très divertissant. 

SZCZEPANSKI 


AAAAAM^VW^AVvWVVVsWA 


; p = hÿ ; rem MQNSTRES&C 
L il 

2 ; 6 ahDÜPI :T=8 
10: 14hIT 80; PRINT M I N I T 
I A L I S A T 1 0 N M ; DIM Z<6 
y 6 ) ; FOR 1=8 10 6: Z< 
I ? 0 ) =9 ; Z ( I y 6 ) =9 ; 

N EK T I 

20; FOR 1=8 TO 6 : Z < 0 y I ) = 
9 : Z < 6 y I ) =9 : NEKT I: 
FOR 1=1 TO 5; FOR J= 


3 8 : Z < I y J > = RND 6; NEKT 


3 5 : Z < 

RND 

5 y 

RND 5) =7 

40: K= 

RND 

5: 

Y= RND 5: 

IF 

ii K y 

Y ! 

=7 THEN 4.0 

50: ZO 

y Y ) = 



60: K= 

RND 

5: 

Y = RND 5: 

IF 

( Z i - 

; y 'ï 

’ ) = 7 ) + { Z ( K y ' 


>=8> THEN 68 
7 8 ; P R I N T * C 0 0 R D . * y K 5 * / * 
yr; IMPOT ''N/S/E/0 ? 
*ÜA$: IF A$< > * N AND 
A$< > * S * AND A$< > * E * 
AND A$< > l *’ 0 THEN 78 
88; IF A$=*N* LET B=-ÜD 
=8 

90; IF A$=*S* LET B=1 ;D= 
0 


180; IF A$=*E* LET B=0:D= 
1 

110; IF A$=*0* LET B=0;D= 
-1 

120; IF Z ( K+D y Y+B ) =9 
PRINT -UN MUR ! ! * : 
GOTO 78 

NE*; PRINT * BRAVO* ; 
END 

145; IF Z ( K y Y ) =5 PRINT *0 
NE POTION* :P=P+3; 
PRINT *V0ÜS AVEZ *ÏP 
y *PV* ; Z < K y Y)=8; GOTO 
78 

1 46 : I F Z ( K y Y ) =8 AND RND 
7=4 GOTO 155 

150; IF Z ( K y Y ) < 2 PRINT *R 
I EN A SIGNALER*; 

GOTO 70 

155: PRINT *UN MONSTRE* 
160; R AND OM ;K= RND 5; 
PRINT *V0US PERDEZ*; 

k; *pv* ; p=p- k; if p<= 

8 PRINT *V0US ETES M 
ORT*; PRINT *FIN*; 
END 

170; IF RND 5 >2 PRINT *V0 
US LE TUEZ* : ZCKy Y>=0 
; GOTO 78 

175: PRINT *V0US AVEZ *ÿp 

; *pv* 

180: PRINT *V0US LE RATEZ 


De 1 28 à 335 nous avons la zone de 
variables fixes de Z vers A, de structure 
identique au 1251. 

De 384 à 464 nous avons un tampon 
d'entrée/sortie. 

Vous pourrez faire d'autres découvertes 
à l'aide de ces deux instructions, et ser- 
vez vous du fait que les codes internes 
des caractères et des mots-clefs sont les 
mêmes que sur le 1251. Ainsi que la 
structure des lignes Basic. 

Encore deux instructions cachées : CKOO 
et CK01. 

Elle ne fonctionne qu'en commande et 
sont destinées sûrement à des tests de 
bon fonctionnement. Mais CHUUUT ! ! 

TUTTOILMONDO 



1 3 8 : K = K + D ï Y = Y +B : 1 F Z K y 
Y>=7 PRINT * VOUS TRO 
UVEZ* : PRINT *LA CLE 
* ; T=1 : Z(Ky Y)=0: GOTO 
78 

148:IF Z(Ky r)=8 AND 7=1 
PRINT *VÜUS AVEZ GAG 


VVVVVVV\AA/VW\AAVvV^VVvV 







Dans notre série consacrée 
au tableur des PC 1 260/61 , 
voici quelques formules uti- 
lisées par un médecin dans 
l'exercice quotidien de sa 
profession. 

EXPLICATIONS : 

# 1 : 

Permet de calculer l'indice de Ruffier. Il 
s'agit d'un test pratiqué lors des visites 
d'aptitudes aux sports. 

PQ=poul au repos, compté sur 15 
secondes. 


Vous sortez votre PC de 
l'emballage, et comme tout 
le monde, vous ne lisez pas 
le mode d'emploi mais com- 
mencez à tapoter sur le 
clavier. STOP... 

Lisez au moins cet article qui 
est fait pour vous... 

ON 

Tout d'abord il faut l'allumer. Générale- 
ment tout le monde sait le faire, il suffit 
de placer le commutateur sur ON ou d'ap- 
puyer sur la touche correspondante si 
vous possédez un PC 1500/1600. 

Il doit s'afficher à l'écran le signe > , 
sauf sur PC 2500 qui vous présente un 
menu. Choisissez l'option 3 BASIC en 
tapant sur la touche 3 où en descendant 
le curseur grâce à la flèche vers le bas et 
en appuyant sur ENTER lorsque le curseur 
se trouve en face de l'option 3. 

Il se peut aussi que sur PC 1350/2500, 
ce doit le signe < qui s'affiche. Cela 
signifie que vous vous trouvez en mode 
TEXT. Donc tous les programmes que 
vous tapez sont considérés comme du 
texte et ne seront pas utilisables. Cette 


PI =poul après l'effort (3(Xflexions en 45 
secondes). 

P2 = poul après une minute de repos. 
Pour être apte à la pratique d'un sport, 
il faut que I soit inférieur à 10. Plus I est 
faible, plus l'adaptation cardio-vasculaire 
à l'effort est bonne. 

# A: 

Permet de calculer l'age des patients en 
fonction de leur année de naissance 
(NAIS). 

#D : 

Permet de calculer la quantité de lait que 
l'on doit donner à un nourrisson, en fonc- 
tion de son poids (P en grammes) et du 
nombre de tétées ou biberons (NT). 

#PX : 

Calcule le prix des actes en K (petite chi- 
rurgie, desensibilisation, acupuncture...) 
K=le nombre de K (5 pour K5, 10 pour 
K10...) 

Si l'on veut connaître le prix total d'une 
série, il suffit de multiplier le nombre de 




K par le nombre de séances. Par exem- 
ple : pour la desensibilisation (K3) : pour 

1 0 injections de desensibilisation on ins- 
crira sous K : 3* 1 0 et l'ordinateur répon- 
dra 352. 50 = prix de 1 0 séances cotées 
K3. 

#TL : 

Donne le prix d'une communication télé- 
phonique en chronométrant simplement 
le temps. 

UB = durée de l'unité de base en secon- 
des (12 s, 24 s, 45 s, 72 s suivant l'en- 
droit que l'on appelle). Pour la connaître, 

11 suffit de consulter l'annuaire à la page 
des tarifs. 

RD = partie de la communication payée 
suivant l'heure, on mettra : 

1 si plein tarif (8 h - 18 h) 

0.70 si réduction de 30% (18 h — 
21 h 30) 

0.50 si réduction de 50% (6 h - 8 h, 
21 h3Q - 23 h, samedi après-midi 
dimanches et fêtes) 


0.35 si réduction de 65% (23 h - 6 h) 
NB= nombres de minutes de la 
communication. 

(Remarque faire USING « ####.##» 
avant d'appeler #TL) 

#P : 

Permet de calculer le poids idéal d'un 
adolescent ou d'un adulte en fontion de 
la taille et de l'age. 

T = taille en centimètres. 

A = age. 

Le poids normal se situe entre le poids 
idéal moind 10% et le poids idéal plus 
10%. 


Voilà, continuer à nous envoyer vos meil- 
leures formules. 

D r Robert MAYRE. 

A^AAAAAAA/vVAA^AAA^VV\AAA 

4 + 1 = ( ( ( P 0 + P 1 -*- P 2 ) # 4 ) - 2 0 0 ) 


10 

îtA=1986-NAIS 
ttD=<<P/10)+250)/NT 
JtPX=K*l 1 . 75 
ttTL=. 77*68 ü B * R D * N B 
îtP= ( T- 1 00 } - ( ( J- 1 50 ) /4 ) + ( 
<A-20)/4) 

W\^A/yyWWVvWvVAA/vVvV 


option sert pour écrire des programmes 
pour un autre matériel que les PC, et on 
transmet le programme avec l'interface 
RS-232C à un autre ordinateur qui exé- 
cutera le programme. Il suffit de taper 
BASIC en mode PRO pour que tout rede- 
vienne normal. Pour passer en mode PRO 
il faut taper sur la touche MODE jusqu'à 
ce que l'indicateur sur l'écran indique 
PRO. 

Sur les PC 1401/1402/1450 il s'affiche 
un 0. qui signifie que l'ordinateur est en 
mode calculatrice. Ce mode n'ayant que 
peu d'intérêt car à peu près tout le monde 
sait utiliser une calculatrice, tapez sur la 
touche BASIC, et le signe > appelé 
signal d'invite apparaît. 

Si l'écran reste désespérément vide, véri- 
fiez que les piles sont bien en place et 
qu'il a bien une carte mémoire si c'est un 
1450. Si tout est correct, retournez la 
machine et localisez le bouton « ALL 
RESET ». Avec une pointe appuyez des- 
sus, en pressant en même temps sur ON 
si vous avez un pocket du type PC 
1 500/1 600, et sans appuyer sur ON sur 
les autres PC. Restez ainsi environ 5 
secondes. Si toujours rien ne se produit, 
essayez de changer les piles et recom- 
mencez toutes les opérations. En dernier 
recours, rapportez le matériel au reven- 
deur, mais avant d'en arriver là, vérifiez 
que vous avez bien suivi toutes les 
indications. 

Si votre matériel affiche autre chose que 


ce qu'il vient d'être décrit, plusieurs solu- 
tions sont disponibles : 

• Ce n'est pas un matériel SHARP, on ne 
peut pas grand chose pour vous, 

• Tapez ON et CL et tout rentrera dans 
l'ordre. 

Maintenant tout le monde dispose du 
signal d'invitation à l'écran, voyons autre 
chose. 

FAIRE DES CALCULS 

Tout d'abord il faut retenir que la touche 
de validation est ENTER. La touche = ne 
sert ni à valider ni à demander un résul- 
tat, mais est utilisée pour la mise en 
mémoire de valeurs. Nous verrons cela 
plus tard. 

Tapez alors un calcul au clavier, par 
exemple : 

( 10 * 10)/20 

Vous avez sur cette ligne toutes les par- 
ticularités des ordinateurs quant aux 
symboles : 

• Le zéro est barré pour ne pas le con- 
fondre avec la lettre 0. Sur PC 
121 1/1212 il dispose d'un point décalé 
en haut à droite. 

• Le signe multiplié est une étoile pour ne 
pas être confondu avec la lettre X. 

• Le signe divisé est une barre inclinée 
pour ne pas avoir de confusion avec le 
signe : de ponctuation. 

Maintenant il vous faut lire le résultat. Un 
appui sur = ne produira rien du tout et 
c'est bien sur ENTER qu'il faut appuyer. 


Le résultat, ici 5, s'affiche en bas de 
l'écran à droite (si vous n'avez qu'une 
ligne oubliez le bas ! !) il se peut aussi 
qu'un autre chiffre ou le mot ERROR s'af- 
fiche... Vous vous êtes donc trompé en 
écrivant le calcul. Remarquez que le mot 
ERROR est suivi d'un nombre qui indique 
quel est le genre d'erreur commise, pour 
en avoir la signification reportez vous au 
mode d'emploi livré avec la machine. 
Tapez sur la flèche gauche ou droite, le 
calcul que vous aviez tapé réapparaît. Si 
vous aviez fait une erreur le curseur cli- 
gnote sur l'endroit où l'erreur a été détec- 
tée. Dans les autres cas, si vous avez 
appuyé sur la flèche gauche le curseur se 
trouve en début de formule et en fin pour 
la flèche droite. 

Vous avez alors la possibilité de faire des 
modifications dans votre formule. Voici 
la signification des touches de 
commande : 

► Déplace le curseur d'une posi- 
tion vers la droite. 
◄ Déplace le curseur d'une posi- 
tion vers la gauche. 
DEL Efface le caractère sous le 
curseur. 

BS Efface le caractère à gauche du 
curseur. 

INS Crée un espace à gauche du 
curseur. 

Remarquez que les touches ◄ et ► sont 
à répétition. 


Pour obtenir DEL et INS, il faut précédem- 
ment taper sur SHIFT, sauf sur PC 
1350/2500. 

Un appui sur SHIFT allume sur l'écran l'in- 
dicateur correspondant, et un appui affi- 
chera le caractère ou la fonction qui se 
trouve écrit sur le fronton de la machine 
au dessus de la touche. 

Je vous conseille de jouer un peu avec 
ces touches pour bien les manier. 
Lorsque vous aurez corrigé la formule, 
réappuyez sur ENTER et le nouveau résul- 
tat s'affiche. 

Quand vous en aurez assez, un appui sur 
CL effacera l'affichage. La fonction CA 
obtenue en shiftant la touche CL corres- 
pond à un effaçage d'écran avec en plus 
des réinitialisations internes. 

UTILISER LES FONCTIONS MATHE- 
MATIQUES 

Toutes les machines sans exceptions dis- 
posent de très nombreuses fonctions 
d'origine. Sur certains modèles elles sont 
écrites sur le fronton de la machine, mais 
les autres peuvent se rassurer, même si 
elles ne sont pas si exubérantes sur leurs 
modèles, elles n'en sont pas moins 
présentes. 

En règle générale pour obtenir une fonc- 
tion, il suffit de taper son nom avant la 
formule qui doit subir son effet. Sur une 
calculatrice on écrirait : 

10 SIN Alors que sur nos PC nous 
tapons : 

SIN 10 

Qui respecte plus les conventions des 
calculs sur papier. 

Les fonctions présentes dans tous les 
modèles sont : 

EXP Exponentiel 
LOG Logarithme décimal 
LN Logarithme népérien (Base 
2.7182...) 

SIN Sinus 
COS Cosinus 
TAN Tangente 
ASNArc Sinus 
AÇSArc Cosinus 
ATNArc Tangente 

En plus de ceux là, chaque matériel a ses 
petites spécificités. 

Tous les noms de fonctions doivent être 
tapés en majuscule, sauf sur PC 2500 où 
celà est indifférent. 

Nous arrêterons là cette première décou- 
verte de la machine, la prochaine fois 
nous parlerons des variables, numériques 
et alphanumériques, avant de commen- 
cer la programmation. 

LE CLUB 


Base de données peur un 
microordinateur de poche ? 
Pourquoi pas ! Le logiciel 
ue nous présentons permet 
e stocker en mémoire 

I 'usqu'à 68 noms ou articles 
256 en version SHARP 
1261) et de les trier en 
fonction de trois champs de 
saisie différents (appelés 
« A », « B » et « C »). 

PRENONS UN EXEMPLE. 

On introduit dans la poquette les noms de 
nos amis, avec les informations concer- 
nant leur sexe (champ de saisie « A » : 
H = homme, F = femme), leur âge (champ 
« B » : J = jeune, V = vieux) et leurs cen- 
tres d'intérêt (« C » : INFO = infor- 
matique, RAD=radiomateur, MUS=a- 
mateur de la musique, etc.). Pour ce 
faire, il suffit de lancer le programme ci- 
contre avec un RUN et arriver au 
« MENU » qui propose, entre autres, le 
module d'introduction de nouvelles don- 
nées, désigné par un signe « + ». 
Ensuite, c'est facile, on répond aux ques- 
tions. Compte tenu du volume mémoire 
assez limité des SHARP 1 260/1 261 , les 
noms ne pourront pas excéder 7 carac- 
tères et chacun des trois champs de sai- 
sie ne pourra pas en avoir plus de 4. En 
contrepartie, toute la base de données 
trouvera facilement place dans notre 
poche ! 

LES CIRCUITS CMOS 

Les circuits CMOS gardent les informa- 
tions stockées ordinateur éteint et il suf- 
fit de mette celui-ci ON, pour pouvoir pro- 
céder à un tri à tout moment. Attention, 
pour ne pas effacer le contenu de la 
mémoire, n'utilisons surtout pas la com- 
mande RUN ! 

On lancera plutôt le programme avec une 
pression sur la touche DEF et puis SPC. 
On choisira ensuite le module des don- 
nées, désigné par un « D » dans le 
« MENU ». Et nous pouvons maintenant 
sélectionner parmi nos relations les noms 
de toutes les jeunes femmes, intéressées 
par l'informatique... en choisissant le 
« F » dans le premier champ de saisie, le 


« J » dans le second et le « INF » dans 
le troisième... De même, un seul « J » 
dans le second champ de saisie et de sim- 
ples pressions sur ENTER comme répon- 
ses à « A ?» et « B ? », nous feront sor- 
tir les noms de tous nos amis informati- 
ciens (sexe et âges confondus). Ces 
noms pourront être affichés un par un sur 
l'écran ou imprimés - si l'option 
« imprimante » avait était préalablement 
choisie, 

Le logiciel comporte aussi la possibilité de 
suppression des noms ou articles existant 
en mémoire (« - » dans le « MENU ») 
ainsi que d'enregistrement/lecture de 
toutes les données sur cassette. Il peut 
constituer une aide appréciable pour 
représentants, obligés d'avoir toujours 
sur eux lé fichier des clients ou des arti- 
cles à vendre. 

Michel MUSZYNSKI 




1 : CLEAR : BEEP 5: 
üURbüR bï PAUbE D 
BASE * V :B= INT (( 

PtEPt -28)/28)-i: IF B 
>255 LET B=255 
2:3111 NN$(B}?NA$<B>*4 j 
N B $ ( 3 ) + 4 i> N ü $ ( B ) * 4 : 
REtt fl. iluszynsk I 
10: " : INPÜT '•‘Lecture 

cassette (ü/N>? m :R$ 
H: IF R$= V 0 M THEN CLS : 
INPUT tt v BB v 5 ï N 

A$(*>?NB$(*>jNC$(+> 
1.5: CLS :P*='-' y : INPUT v I 
ïïi p r I mante 0. K. (Q/N) 
? y ;p$ 

20: CLS : BEEP 1: NAIT 8 
: PRINT V MENU: 3? 

+ » “?'•': ü ü R b U R 2 4 : 
PRINT ‘-'Leaue 1 ?'•' 

21 : R$= INKEY$ : IF R$<> 
y 3 M AN 3 R$< > M + M ANS 
R$< > v - v THEN 21 
22: IF R$=*+* THEN 108 
23: IF R$= ‘ - v THEN 288 
5 8 : C L S : J = 8 : A $ = v v : B $ = M 
: NAIT 8: 

PRINT tf * RECHERCHE.. 

51 : CU RS OR 24: INPUT y A? 
ü A$ 

52 : CURSOR 32: INPUT y B? 
j B$ 

53: CURSOR 48: INPUT "C? 

y ;e$ 

bû: IF NN$(J)= M M THEN 78 
61 : IF A$< > '•' '•■* M ANS NA$(J 
><> LEFT$ ( A$i» 4) 

THEN 78 

62: IF B$< > v AND NB$(J 
)<> LEFT$ ( B$ ? 4 > 

THEN 78 


63: IF C$<> Mrttf ANS NC$(J 
><> LEFT$ <C$:.4} 

THEN 78 

64: IF P$=*0 V THEN CLS : 
LPRINT NN$ < J > : GOTO 
78 

65: CLS : NAIT : PRINT 
==> î NN$( J) 

78: J=J+1 : IF J<=3 THEN 
6 8 

71 : IF P$=“ 0- THEN 
LPRINT 

72: GOTO 28 

188: CLS : 1=8: J=8:N$= VM :A 
$='•’ : b$= v : e$=" : 
INPUT v + Nom? • ? N$ 

181: IF N$= v • OR N$= y * 
THEN 28 

1 18: CURSOR 24: INPUT y A? 

A$: CURSOR 32: 
INPUT M B? ? B$: 
CURSOR 48: INPUT y C? 

•' ;c$ 

111: IF A$=‘‘ v OR B$= wv OR 
C$= vv THEN 188 

128: IF N$=NN$( I ) THEN 
BEEP 3: CLS : PAUSE 
Existe déjà ! " : 

GOTO 28 

121 : 1 = 1 + 1 : IF I<=3 THEN 
128 

138: IF NN$(J)= yM THEN 14 
8 


1 3 1 ï 

: J-J + l : IF 

J<=3 



138 



132: 

: BEEP 3: CLS : 

Pi 


Plus de 

P ! «IC 

•e 


GOTO 28 



148: 

; NN$( J)=N$: 

: NA$( 

J 


NB$=B$: NC$( J)=C$: 
GOSUB 888: GOTO 28 
280: CLS : J=8: N$= M v : R$= y M 
: INPUT Nom? y >N$ 
281 : IF N$= M THEN 28 
210: CURSOR 24: INPUT y Su 
pprimer (0/N)? M 5R$ 
21 1 : IF R$< > M 0 M THEN 20 
220: IF N$=NN$(J) LET NN$ 
( J ) = : N A $ ( J > = '•' ’’ : N B $ 

(.]) = '■ “ : NC$( J) = •' M : 
b U b i J B ■ b U ü : b U TU 2 U 
221 : J=J+1 : IF J<=3 THEN 
228 

222: BEEP 3: CLS : PAUSE 
y N? ex i ste pas ! y : 
GOTO 28 

880: CLS : R$= v M : INPUT y 
-> Cassette (0/N)? v 
? R$ 

881: IF R$= y 0 y THEN BEEP 
9: PRINT t y 3B v ÏNN$(* 
) j NA$(*> y NB$( + ) ? NC$( 
* > 

882: RETURN- 


wvvvwwwwwwwvww 
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I vous prie de bien vouloir lui faire parvenir I 

□ Recueil(s) des n° 1 à 5 des bulletins SHARPENTIER 
I au prix de 100 F* I 

■ □ Bulletin(s) SHARPENTIER n° 6 □, 7 □, 8 □, 9 □, 10 □ " 

I au prix de 20 F chacun* I 

■ □ Bulletin(s) SHARPENTIER n° 11 □, 12 □, 13 □ ■ 

■ au prix de 25 F chacun* I 

■ □ Bulletin(s) SHARPENTIER n° 14 □, 15 □, 16 □, 17 épuisé, 18 O ■ 

■ au prix de 30 F chacun* ■ 

I □ Manuel(s) Langage Machine PC 1500 □, PC 1251 □, PC 1350 □ ■ 

■ au prix de 180 F chacun* ■ 

I r Manuel de Référence MZ 800 au prix de 240 F l’un* 1 

■ * Port forfaitaire : 20 F ■ 

| Ci-joint un chèque de F à l’ordre du | 

. « CLUB DES SHARPENTIERS » ■ 

| Date Signature | 

L I 


MANUELS L.M. 

PC 1500 I PC 1251 / PC 1350 / MZ 800 

Comme ses prédécesseurs, le PC 1350 possède maintenant son manuel de réfé- 
rence. Il explique et commente le fonctionnement du microprocesseur SC 61860 
et son implantation dans le PC 1350 (Pointeurs, Memory Map, adresse système). 
Une description HARD du PC et de ses périphériques complète ce manuel indis- 
pensable pour qui veut développer ses connaissances sur ce produit. Cet ouvrage 
(en anglais) peut également être utilisé par les possesseurs de PC 2500 dont 
le microprocesseur, donc toute la partie LM est rigoureusement identique. 
Ces 4 manuels, en anglais, très bien documentés, sont des ouvrages de réfé- 
rence et n’abordent pas l’initiation au langage machine. Ils sont disponibles direc- 
tement au Club, le mercredi après-midi (exclusivement), au prix de 170 F (MZ 800 : 
230 F) l’un ; ou par correspondance au prix de 180 F (MZ 800 : 240 F) (port 
compris). 

A paraître : Manuel L.M. PC 1401/02, édité par le CLUB en FRANÇAIS. 


Ex: DP = &6900 et l'adresse &6900 
contient l'information 7. 

Ce qui peut s'écrire (&6900) = 7 et 
encore (DP) = 7. 

P=&20 et (P) = 1 

alors MVMD donne (&6900) — (&20) 
soit 7 dans &20 

donc (DP) = (&6900) =7 et (P)= (&20) = 7 

Avec les mêmes conditions de départ 
MVDM donnerait : 

(DP) = 1 et (PM 

On constate donc que MVDM remplace 
la séquence LDM et STD et que MVMD 


n'a pas d'équivalent simple, car logique- 
ment la séquence devrait être LDD et 
STM. Or STM n'existe pas !! 

MVMD peut donc se remplacer par : LDD 
et EXAM 

Ce qui tout naturellement (WOUAHH ! 
l'enchainement d'enfer ! nous amène à 
parler des instructions de type EXchange. 
Pas besoin de traduction pour compren- 
dre que nous allons traiter des échanges 
simultanés de valeurs. 

Étudions alors les instructions LM EXAM 
et EXAB. Dans EXAM il y a EX pour 
EXchange, A pour Accu et M pour (P), 


vous avez donc je pense tous trouvé : 

EXAM : code &DB A <■ > (P) 

De semblable façon pour EXAB : 

EXAB : code &DA A <■ > B 

Par exemple pour EXAM : 

A = 2, P = &20 et (P) =6 donnent après 
l'execution de EXAM : 

A = 6, P = &20 et (P) =2 
Nous avons donc bien échangés les 
valeurs 2 et 6 entre A et (P). Notons de 
plus que MVDM, MVMD, EXAM et EXAB 
n'affectent en rien les Flags C et Z ni les 
registres P et DP (seulement leurs 
contenus). 


Voilà c'est tout pour cette fois, la place 
vous l'avez constaté est restreinte. La 
fois prochaine nous aborderons les 
MoVes et EXchanges simultanés de plu- 
sieurs valeurs. Et comme promis (il y a 
longtemps), les instructions de types 
INCrémentations et DECrémentations. 

Jean-François VIGNAUD 
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Le programme présenté va de paire avec l'initiation au 
Langage Machine ESH-H débutée il y a quelques mois. 


Je ne vous demande pas de comprendre 
son fonctionnement de suite, si ce n'est 
pour l'adapter à votre propre PC ; en effet 
il est écrit pour un 1350, mais se trans- 
pose facilement à une autre adresse en 
modifiant les LIDP et UDL. Vous consta- 
terez qu'il est constitué de mnémoniques 
déjà expliqués ou suffisamment simples 
pour être compris intuitivement. Le 
source désassemblé est commenté pour 
vous faciliter la tâche. Mais seul le pro- 
gramme Basic est à rentrer puisqu'il com- 
porte en son sein la partie LM 
susnommée. 


On execute le pgm par un RUN et s'affi- 
che ensuite sur l'écran (ou l'imprimante 
par PRINT = LPRINT) le contenu des 
registres d'index de la ram interne et les 
Flags. Puis le début de la ram interne 
explicitement nommé : Les noms des 
registres I J etc. sont dans l'ordre et leur 
valeur en dessous. Pour les registres de 
travail (Xreg, Yreg, etc.), je n'ai pas fait 
figurer de noms car ils dépendent du PC. 
Vous pourrez constater que le pgm affi- 
che 8 registres par 8 registres, et ce 
jusqu'à la fin de la ram interne ; soit le 
95 e octet (ou registre), &5F qui est 


6900 

10 

693F 


entry LIDF' 

copyA 

6903 

52 



STD 


6904 

1 1 

40 


LIDL 

c o p y Z 

6906 

02 

01 


LIA 

$01 

6908 

38 

03 

6900 

JR 7 

s 1 o r e Z 

690 A 

02 

00 


LIA 

$00 

6901 

52 



storeZ '-1 D 


6 90D 

1 1 

41 


LIDL. 

copyC 

670F 

0.' 

01 


LIA 

$01 

69 1 L 

3A 

03 

6915 

.IRE 

3 1 o r e C 

671 < 

02 

00 


1 IA 

$00 

6915 

32 



s+oreC STD 


67 le. 

11 

42 


LIDL 

copyP 

69 1 

20 



I..DP 


67 1 7 

5 2 



51 D 


691 A 

11 

43 


LIDL 

copyQ 

67 1 1 

21 



IJiO 


69 1 U 

5 2 



SI D 


671 E 

1 1 

44 


L IDL 

copyR 

6920 

22 



LDR 


69 J 1 

52 



STD 


6922 

11 

45 


LIDL 

c o p y I 

6724 

80 



LP 

I 

6923 

53 



MVDM 


6926 

00 

5D 


LU 

$5D 




5 SAUVE Accu. EM RAM EXTERNE 

5 1 A SI Z=1 

; SI Z=l, LE P TR VAUT 1 
Z=0, F' T R VAUT 0 
5 ETAT DE Z 

5 1 -- A I C- I 

5 SI O I ,PTB=:i. 

? C=0 PTR=0 
ETAT DE C: 

ON SAUVE P 


; ON SAUVE. 0. 


5 ON SAUVE R 


? P POINTE SUR I 
; ON SAUVE I 


£9 2: 3 

il 

46 

LIDL 

ram i n i 



6 72 A 

81 


LP 

$01 

s P POINTE SUR J 

69 PB 

19 


EX WD 


ON 

SAUVE LA RAM INTERNE A 

6920 

1 1 

46 

LIDL 

ratni ri 1 

S PARTIR DE J 

69 2E 

81 


LP 

$01 



69 PF 

1 8 


MVWD 


5 ON 

REPLACE LES VALEURS 

67313 

l 1 

45 

LIDL 

copyl 

? EXACTES 

/-.932 

8i/i 


I...P 

I 



6733 

55 


MVMD 


ON 

RECUPERE I 

67 34 

11 

42 

LIDL 

copyP 



6936 

'57 


LDD 




67 4 / 

3i/i 


S TP 


; ON 

RECUPERE P 

û9 v -fj 

11 

3F 

LIDL 

copyA 



67 3A 

57 


LDD 




693B 

11 

47 

L I DL 

ramint+i 



67 3D 

32 


SID 


5 ON 

PLACE LE VRAI A DANS 

673li 

37 


RTN 


5 LA 

P1L.E REGISTRES 
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OUTC. Voilà vous pouvez vous en servir 
pour connaître le résultat de vos essais 
en LM ou pour tester vos pgms ; il suffit 
d'inclure le CALL (CALL &6900 dans ce 
cas) au moment voulu du test, et d'effec- 
tuer un GOTO 60 par la suite. Evidem- 
ment ce programme ne modifie pas le 
contenu de ces mêmes registres, hormis 


DP et PC. Et vous pouvez sans crainte 
l'intercaler dans un pgm LM de votre cru 
pour tester l'effet de telle ou telle 
instruction. 

Bon LM ! 

Jean-François VIGNAUD 


1 sous- 

PGf1 LM 


PC 1245/51/55 

PC 1260/61 

PC 1401/02 

PC 1350 

PC 1450 

PC 2500 

BA <-> 

Y 


18BB 

1549 

17D8 

■17B5 

1BEE 

193C 

X <-> 

[0C1Ç0D] 

1195 

13A3 

•163E 

161A 

1A24 

17C3 

! x. — > 

X Buffe 

F' 

1118 

08ED 

0BDB 

0A0A 

0D0A 

0B45 

1 X Buffet -“ > 

X 

1125 

08FA 

0BE8 

0A17 

0D17 

0B52 

START BAS. — > 

X 

118F 

13BD 

i643 

1471 

1A31 

1555 

I nP Buff-1 — > 

X 

119A 

022A 

026C 

0293 

029F 

02B9 

I nP Buff-1 — > 

Y 

■11F9 

023E 

0274 

02B1 

02A7 

02D7 

c x+i ) --- 

> ( Y+l ) » 

B 

1FB6 

1047 

133A 

1175 

1235 

1159 

ERROR 

1 


1705 

1 0FC1 

12B4 | 

10EC 

! 11AF 

10D0 

ERROR 

2 


170B 

0FBB 

12AE 

10E4 

! 11A9 

10 C 8 

ERROR 

3 


170F 

0FC5 

1 12B8 i 

i' 10F0 

11B3 

1004 

ERROR 

4 


! 1713 

! 0FC9 1 

1 12BC i 

! 10F4 

11B7 

10D8 

ERROR 

5 


: 1717 

1 0FCD 

12C0 

10F8 

11BB 

10DC 

ERROR 

6 


; 171 B 

0FD1 j 

12C4 

10FC 

11BF 

10E0 

ERROR 

7 


171F 

! 0FD5 

12C8 

1100 

11C3 

10E4 

ERROR 

8 


1723 

0FD9 ! 

1 I2CC 1 

1104 

11C 7 

10E8 

ERROR 

9 


I 1727 

0FDD i 

12D0 

1108 

! 11CB 

10EC 






L'utilisation de certaines combinaisons de bits sur les ports 
d'entrée sortie a des effets pour le moins curieux. 

Il est par exemple possible en changeant l'octet contenu 
à l'adresse E003 de modifier le signal de synchronisation 
et d'augmenter ainsi la taille del 


ESSAYER CE PETIT PROGRAMME 

AAA^A^^AAAWV^A^A^AVV^^AAA/V^VV^WAA / WvVv^^^^AAA/y^ 

10 FORI = 1TO1000:PRINT[RNDCn*8,RNDC1 3*83 
CHR$C1 123 ; :NEXTI 
20 POKE$E003,$A2:GOT010 

WVVvVvVvWWWv^VWVV^^/VVV^AA\AAVV\^^^^AAAA/WWVV 


L'effet est variable suivants les moniteurs 
mais toujours saisissant. 

Si cela ne vous convient pas faites varier 
la valeur $A2 de la ligne 20... on fini tou- 
jours par trouver une valeur qui donne 
une image stable. 


ATTENTION : certaines valeurs pertur- 
bent le fonctionnement du clavier et plan- 
tent donc le MZ. 

Pour revenir à la normale POKE $E003, 
$8A. 

PROCHAIN ÉPISODE : le MZ 700 en 

dolby stéréo. 



devenez 


SHARPENTIER 




Vous savez tous maintenant 
comment utiliser le deu- 
xième générateur de carac- 
tère. 

Mais apparement c'est tou- 
jours les mêmes 256 carac- 
tères classiques du premier 
générateur que l'on re- 
trouve dans vos program- 
mes. 


Voici donc un petit programme de CAO 
qui vous permettra de composer des figu- 
res (pièces d'échecs, visages, véhicules, 
etc.) avec les caractères du deuxième 
générateur. 

Pour cela positionner le curseur rouge sur 
le caractère qui vous intéresse et tapez 
« espace » vous pouvez alors le déplacer, 
le dupliquer, le coller à un autre caractère 
etc. 


NOTE VALABLE POUR TOUS LES 
LISTINGS : 

Nous rappelons au Sharpentier débutant 
que les caractères qui apparaissent sur 
l'imprimante sous forme de flèche enca- 
drées (exemple ligne 1 30) correspondent 
aux flèches en reverse vidéo à l'écran et 
s'obtiennent en tapant : 

• la touche GRAPH 

• la touche du curseur correspondant à 
la flèche 

• la touche ALPHA 

/vv\aaaavw\mavwvv\v^v\ 


*0 PDKE$5D, $F1 - FLS :P: =53248 

20 FOR I -010255 ' p OKE I *2+53248 - I NFXT 

30 POKE$D800, $F2 

<10 FURSOR 0,20 -PRINT -<=RINT :: Oep! acement d 
u co.^re rouge o.oeu ' - PRINT [ 0 , 6 ] ' : <r0-»0tB4 
50 PR INT "Pour prendre un caractère ■ espa 
ce " • p RINT ,: Pour !e duplique^ D' 

100 GFTG$ • IPÜ$-’ T HEN 1 00 

105 POKE P + $800, $F1 :POKEP,PU 

110 IFG$="i :i THENP=P-40 

120 I FG$=' : B" THENP^P+40 

i30 I FG$ =li @ " THENP=P+ 1 

140 IFG$="0' ; THENP=P-1 

150 PU-PEEKCP!) 

160 IFG$=" r; THENPU=C.H iOH-PEEKCPI 
i 20 I FG$~- ,; D "THENPLJ--CH 
180 POKEP+$800, $F2 -POKEP, CH 
200 G0 T 01 00 


La série MZ à une propriété 
intéressante : lorsâue l'hor- 
loge passe de 12 n 59 mn 
59 sàO h Omn Os une in- 
terruption est générée. 

Le Z-80 abandonne alors le 


programme en cours pour se 
brancher à la routine de 


gestion des interruptions 
située en ROM à l'adresse 
38 H. Or cette dernière se 
contente d'elfectuer un 
branchement en 1038 H 
«pri est situé en RAM, la ges- 
tion des interruptions est 
donc accessible à n'importe 
quel Sharpentier ayant des 
notions de LM. 


A titre d'exemple voici un programme 
(testé sur 700 et 80 K mais doit tourner 
probablement sur les autres MZ) qui per- 
met à notre ordinateur favori d'éxécuter 
plusieurs applications à la fois. 

Entrez le programme TIME SHARER sous 
assembleur ZEN (ou avec tout autre 
moyen), chargez en mémoire les pro- 
grammes (L.M.) que vous voulez faire 
tourner et contentez vous de lancer TIME 
SHARER. Celui-ci vous demandera le 
nombre de programme à éxécuter simul- 
tanément et leurs adresses respectives. 
Afin de le tester facilement je vous con- 
seille d'implanter en C 800 la petite rou- 
tine fournie en héxadécimal et d'utiliser 
TIME SHARER de la façon suivante : 
NB DE PROGRAMME 2 
ADRESSE DU PGR1 : OOAD 
ADRESSE DU PGR2 : C800 
Vous pourrez alors travailler sous moni- 
teur (OOAD est un point d'entrée à chaud 


du moniteur) mais toutes les 10 secondes 
s'il y a des « B » sur l'écran ils descen- 
dront d'une case car la routine C800 
(fabriquée un 1 er avril) à cette fonction. 
On peut bien sur envisager des utilisa- 
tions beaucoup plus sérieuses, tout étant 
possible dès le moment ou les différents 
programmes qui tournent ensemble : 

• n'utilisent pas l'horloge 

• travaillent sur des zones de mémoires 
différentes (attention aux pointeurs de 
pile pas initialisés !) 


FONCTIONNEMENT DE TIME SHARER 


Dans un 1 er temps, il effectue la saisie 
des informations nécessaires. 

Le nombre de programme simultané est 
stocké à l'adresse NBR (80F8 H) 

Pour chaque application est réservée une 
zone de 2k octet dans laquelle l'adresse 
de départ est stockée comme valeur de 
PC (voir schéma). 

Ensuite TIME SHARER fixe l'horloge sur 
1 2 h 59 mn et 55 secondes et lance la 
1 er application après avoir fixé le contenu 
des registres d'après la table.en passant 
par un buffer BUF. 

5 secondes après, une interruption est 
générée le Z-80 va se brancher à 
l'adresse RETOUR (8090 H) 

Là TIME SHARER sauve le contexte 
(valeur des registres) dans la table et res- 
taure le contexte de l'application suivante 
qui est lancée pour 5 secondes et ainsi 
de suite. 


NOTE: 

Pour un rythme plus rapide (ou plus lent), 
modifiez la valeur 43195 de la ligne 47 
(431 95 secondes = 1 2 heures 59 minu- 
tes et 55 secondes) 

Ce programme donne à votre MZ des 
possibilités que l'on ne trouve que sur des 
gros systèmes. Mais pour une véritable 
utilisation multitâche on sent très vite la 
nécessité d'un système d'exploitation 
plus élaboré que le TIME SHARER (ges- 
tion de l'espace mémoire, attribution de 
priorité, changement dynamique du nom- 
bre de tâches, etc.). Nous attendons 
donc impatiemment vos réalisations ! 
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E£__ 

SE_ 


IY 

HL 

D£_ 

lBÇ_ 

AE_ 

HL / 

DE' 

bclJ 

âEl 

pn 

SP 

T* 

TY 

Hl 

nF 

RC 

AF 

HL' 

PE' 

IBC'1 

HF' 

PÇj 

SP_J 

IX 

IY 

HL 

DE 

£C_ 

AF 

HL' 

DE' 

BÇLj 

BEI 

PC 

SP 

IX 

IY 

HL 

DjE_J 

BC 

AF 

HL_d 

DE' 

BC'! 

A F' 


pr>og 1 
prcj2 

pr C9 4 


f i 9 1 : STRUCTURE DE LA TABLE 


Ccas de 4 pros - simultané) 
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CS00 

31 

00 

C9 

21 

E8 

D3 

01 

E8 

C808 

03 

3E 

02 

ED 

B3 

20 

0C 

23 

C81 0 

36 

00 

1 1 

28 

00 

19 

77 

ED 

C81 8 

52 

18 

F 0 

FF 

C3 

03 

C8 
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Une erreur mettant en cause 
le ben fonctionnement des 
procédures (lorsque les 
paramètres d'appel sont 
des FN sans arguments^ a 
été découverte. Il est facile 
de la corriger en procédant 
comme suit : 

Charger le Basic puis retourner au moni- 
teur par Shift Break, lorsque la sonnerie 
retentit. Grâce à la commande M du 
moniteur, on changera les octets 
suivants : 

I0FD : 39 (Identificateur K-Basic V.5.9) 


7CFA et suivants 


: 3E0BÎ2131AE5 
D5C3E5 63 
D5 13 
C3 FA 6A 


MZ 800 

(DÉCOUVERTE PAR MONSIEUR ÉRIC GÉRARD) 

1 « LOAD ALL » : charge tous les pro- 
grammes du Quick-Disk dans la Ram-File 

2 « SAUVE ALL » : sauvegarde tous les 
programmes contenus dans la Ram-File 
sur QD 

3 Pour avoir accès au second générateur 
de caractères : 

QD &K7 : POKE $5D4, 1 
Normale : POKE $5D4, 0 

4 Pour ajouter une nouvelle fonction à 
votre Basic, « BOR », permettant ainsi de 
Colorer l'extérieur de l'écran : 

K7 : POKE, 23017, 66, 79, 210 : POKE 
21936, 205, 218, 132, 123, 1, 207, 
6, 237, 121, 201 
POKE 23709, 176,85 
QD :POKE 23017, 66, 79, 210: POKE 
21913, 205, 81, 133, 123, 1, 207, 6, 
237, 121, 201 
POKE 23709, 153, 85 
EXEMPLE: 1 BOR RND (1) * 15 : -WAIT 
300 : GOTO 1 

5 Pour émettre un « bip » à chaque 
« Ready » : 

K7 : POKE 21953, 20562, 0, 17, 240, 99, 
201 : POKE 22650, 205, 193, 85 

Éric GÉRARD 




Les programmes qui suivent 
vouspermettront de dispo- 
ser facilement des deux 
jeux de caractères en ROM 
et éventuellement d'un jeu 
que vous pouvez créer et 
qui personnalisera votre 
MZ. Ce dernier jeu est ins- 
tallé en RAM (modification 
oblige] à partir de $EFFF f 
attention donc aux pro- 

3 ranimes qui « délièr- 
ent ». Faire LIMIÏ $EFFF. 


75C4 et 75C5 : D5 13 

75E2 et suivants : C3 FA 6A 
7768 : 0£ 

On réenregistrera alors le Basic par 


Le passage à l'enregistrement (sur K7 ou 
QD) se fait en tapant 0 comme code 
d'affichage. 

LE PROGRAMME 3 sera utilisé pour 
entrer votre jeu de caractères en RAM. 
Un jeu de caractères « gras », avec 


minuscules accentuées, facilement utili- 
sable peut être entré grâce au programme 
SAISIE HEXAdu Sharpentier N° 17. 
Lorsque vous aurez créé des caractères 
originaux, faites en profiter le Club... 

Jean MILLET 


LE PREMIER PROGRAMME se borne à 
installer les routines L.M. permettant 
d'avoir accès aux différents caractères (il 
peut être inséré dans l'AUTO RUN de 
votre disquette) : 

CTRL + A ( code ASC = 1 ) : caractè- 
res normaux 

CTRL + B ( code ASC = 2 ) : deuxième 
groupe de caractères ROM. 

CTRL + D ( code ASC = 4 ) : jeu de 
caractères « personnalisés », si vous 
l'avez installé, voir PG 3. 

CTRL + ( code ASC = 28) : mode 

RVS ou non, pour tous les types. 

Ces différents caractères peuvent être 
appelés au cours d'un programme : il suf- 
fit de faire PRINT CHR$(code ASC) ; 
« affichage ». Les sorties sur écran, 
LIST, DIR, etc se feront également selon 
le dernier code demandé. 

LE DEUXIÈME PROGRAMME permet de 
créer votre jeu de caractères. Après avoir 
fait RUN, MZ vous demande quel est le 
jeu à modifier, puis le code d'affichage 
(voir le manuel technique). Sur l'écran 
apparaissent le code ASC, le caractère en 
écriture « normale », un cadre dans 
i lequel les pixels définissant le caractère 
sont inscrits. 

Un curseur peut se déplacer dans ce 
cadre grâce aux flèches. Un appui sur O 
affiche un point, un appui sur SPACE l'ef- 
face. Quand le dessin est à votre conve- 
nance, CR permet de passer à un autre. 


2 ■- MODIF CAR 

3 » Jean Millet 

4 , Avril 1986 

10 DIMT(7,7> :C0NS0LE3,22:B0X0,3,319,20:G0SUB625: IFPEEK ($5590) =OTHENGOSUB60O 
20 PRINT"S": A*=" MODIFICATION DE CARACTERES" : G03UB500 s CÜRS0R5, 5: PRINT" A partir de 
: " : 1=0: A*="Car. ROM 1 G0SIJB25: A*=" Car . ROM 2" : G0SUB25: A*="Car . / K7" : G0SUB25: A*= 
"Car./ QD " : G0SUB25 : I FPEEK ( *EFFF ) < >0THENA*= "Car. RAM " : G0SUB25 
22 G0SUB5 1 O : 0NRG0T070 , 80 , 50 ,60,1 05 

25 1 = 1 + 1 s CIJRS0R10, 6+2# I : PRINTCHR* (*1C) 5 " C " 5 STR* ( I ) ; " 1 " ; CHR* (*1C) ü " " ; A* : RETURN 
50 F*="CMT" : G0T065 
60 F*="QD" 

65 G0SUB400: GOTO 105 

70 P0KE*E002 ,*10: G0T085 

30 P0KE*E002,*18 

85 USR (*E000> : POKE*EFFF, *FF 

100 ’ MODIF. 

105 X0=248: Y0=48: PR INT "B" : E<OX 142, 47 , 209, U2:B0X0, 155,319, 180:B0X0, 180,319, 195: CU 
RSQR30, 6: PRINTCHR* (*22) ; " ";CHR*<*22) : CURSQR3, 6: PR INT "Codes: " : G0SUB300 
110 CURSOR'8,23: INPUT"Code d ? af f i chage: HBE " 5 A: IFA>255THEN1 10: ELSEIFA=0THEN310 

1 20 POKE*EO 1 9 , A : USR ( *E0 1 8 ) : CURSQR3 , 8 : PR I NT " A-f f =* " ," R I GHT* < " 00 " +HEX* ( A ) , 2 ) : PR I NTT 
AB(3> ,” "BJASC =*"; : AS=PEEK ( *E0 1 9 ) : IFAS=*FOTHENPRINT"E???" : AS=0: ELSEPRINTHEX* ( AS) 
130 CURSQR3, 12: PRINT"-* "5 CHR* (AS) 5 " f" : AD=*F000+8)KA: F0RI=0T07: V=PEEK ( AD+I ) : CURSO 
R18, 6+1 : J = 1 

140 F0RK=0T07: J=J#2: IFV MODJTHENPRINT" :V=V-(V MOD J ) : SETXO+K, YO+I : T (K, I)=1:ELS 
EPRINT" " ; : RESETXO+K, YO+I : T (K, I ) =0 
150 NEXTK, I : X=0: Y=0 
1 70 CURSOR 1 8+ X , 6 + Y : PR INT" PS" ; 

1 80 GETR* : I FR*= " " THEN 1 80 
1 90 R= ASC ( R* ) : ONR- 1 6G0T0240 , 240 , 240 , 240 

200 I FR=32THENPR I NT " "; : RESETXO+X , YO+Y : T ( X , Y) =0: R=19: G0TO250 
2 1 0 I FR=79THENPR I NT " • " ; : SET X0+ X , Y0+ Y : T ( X , Y ) = 1 : R= 1 9 : G0T0250 

220 IFR=13THENG0SUB290: F0RY=0T07: V=0: F0RX=7T00STEP~1 : V=V*2+T (X , Y) : NEXTX : POKEAD+Y 
, V: NEXT Y : G0SUB300: G0T01 10 
230 BEEP: GOTO 180 

239 ? CURSEUR 

240 G0SUB290 

250 IFR=19THENX=X+1 : IFX<BTHEN170: ELSEX=0: R=17 
260 IFR=17THENY=Y+l:Y=-Y*(Y<>8) : GOTO 170 
270 IFR=20THENX=X~1 : IFX >- 1THEN170: ELSEX=7: R=18 
,280 IFR=18THENY=Y--l: Y=Y— 8 *(Y=— 1) :G0T0170 
290 PRINTCHR* (-32# (T (X , Y) =0) -241* (T(X, Y)=l) ) : RETURN 

300 CURS0R1 , 20: PRINTCHR* (4) ; " ABCDEFGH I JKLMNOF'QRSTUVW X Y Z 0123456789" : PRINT"Eabcd 
efghi.jklmnopqrstuvwxyz : ; , . O *’ +*": PRINTCHR* ( 1 > : RETURN 

309 ■’ ENREGISTREMENT 

310 A*=" ENREGISTREMENT DES CARACTERES" : G0SUB500: PR INT" B" : 1=0: A*=" sur K7":G0SUB25 
: A*="sur QD" : G0SUB25 : A*= "Fin " : G0SUB25: G0SUB510: F*="QD" : 0NRG0T0320 , 340 

315 CONSOLE: END 
320 F*="CMT" 

340 PR INT" B" : CURS0R5, 10: INPUT"Nom du fichier : ";R*:R*=F*+ 

PRINT"!*! Appuyez sur " ; CHR* (28) : " RECORD + PLAY " ; CHR* (28) 5 " S.V.P.!" 

360 WOPEN# 1 , R* : A*= " " : FOR I =*EFFFT0*F800 : A*= A*+CHR* ( PEEK ( I ) ) : I FLEN ( A* ) =250THENPR I N 
T#1 , A*: A*=" " 

362 NEXT : PRINT#1 , A*: CLOSE# 1 : G0T0315 

399 ’ LECTURE 

400 A*="LECTURE DES CARACTERES" : GDSUB5O0: PR INT "B” *" CURS0R5, 10: INPUT"Nom du fichie 

r : " :R*:R*=F*+": "+R*: IFF*="CMT"THENCURS0R5, 12:PRINT"Appuyez sur " ; CHR* (28) ; " P 

LAY " ; CHR* (28) ; " S.V.P. !" 

420 R0PEN#1 , R*: AD=*EFFF: F0RJ=1T09: INPUT#1 , A*: FOR 1 = 1 TOLEN ( A* ) : POKEAD, ASC (MID* (A*, 
1,1)) : AD=AD+1 : NEXT I, J. -CLOSE# l:A*=" MODIFICATION DES CARACTERES" 

499 ’ - — AFF. TITRE 

500 CURSOR 1, 1 : PRINTSPC (38) : CURS0R20-LEN (A*) ,/2, 1 : PRINTCHR* (2) ; A*;CHR*(1) : RETURN 

509 ? CHOIX 

510 LINEO, 180,319, 180: CURS0R25, 23: PRINTCHR* (28) ; " Choix ? " ; CHR* (28) 

515 GETR: I F ( R=0 ) + ( R > I ) THEN5 1 5 : EL.SERETURN 

599 ’ JEUX DE CAR. 

600 P0KE*5590, *29, *11, *0, *D0, *19, *C9: F'0KE*5DF, *CD, *90, *55 

609 ’ RVS. et CTRL + \ 

6 10 PÜKË*5598, *18, 1 , *2F, *23 , *L)9, * 7 7 , *C9: PÜKE*5EC, *CD, *98, *55: P0KE*55A0, *3 A, *99, * 
55 , *B7 , *20 , 4 , *3E , 1 , * 1 8 , 1 , *AF , *32 , *99 , *55 , *C9 : P0KE*93 , *A0 , *55 

619 > CTRL + A B D 

620 P0KE*55B0 , *3E , * 1 0 , *32 , *93 , *55 , *C9 : PDKE*55BB ,*3E,*1B,*32,*93,*55,*C9: P0KE*5D , 
*B0, *55, *B8, *55: P0KE*55C0, *3A, *FF, *EF, *C8, *3E, *F0, *32, *93, *55, *C9: P0KE*63, *C0, *5 
5: RETURN 

624 ’ PG L.M. 

625 FOR I =*EOOOTO*EO 17: READR: PDKEI , R: NEXT: P0KE*E018, *3E , O, *D3, *E2, *CD, *CE, *B, *D3, 
*E0 , *32 , * 1 9 , *E0 , *C9 : RETURN 

900 DATA33, O, 16, 17,0, 240, 1 , 0, 8, 219, 224, 126, 18,35, 19,11, 120, 177, 194, 1 1 , 224,219,22 


2 LECTURE CARAC. 

10 PRINT"B":CURS0R9, l: PRINTCHR* (2) ; "LECTURE DES CARACTERES" : CHR* ( 1 ): CURS*0R5, 10: P 
R INT"de Cil K7 ou C23 QD":F*="CMT" 

20 GETR : I F ( R=0 ) + ( R >2 ) THEN20 : ELSEI FR=2THENF*= " QD " 

30 CURS0R5, 10: PRINT" Nom du fichier : " : CURS0R21 , 10: INPLITR*: 

IFF*="CMT"THENCURS0R5, 12: PRINT"Appuyez sur " ; CHR* (28) ! " PLAY " ; CHR* (2B) ; " S.V.P. 

40 RDPEN# 1 , R* : AD=*EFFF : FOR J = 1 T09 : I NPUT# 1 , A* : FOR I = 1 TOLEN ( A* ) : POKE AD , ASC ( M I D* ( A* , I 
, 1) ) : AD=AD+1 : NEXTI , J : CL0SE#1 : CONSOLE 


10 •’ JEUX DE CAR. 

20 P0KE*5590, *29, *1 1 , *0, *D0, *19, *C9: P0KE*5DF, *CD, *90, *55 

30 •’ RVS. et CTRL. + \ 

40 P0KE*5598, * 18, 1 , *2F , *23, *D9, *77 , *C9: P0KE*5EC , *CD , *98 , *55 : P0KE*55A0 , *3A , *99 , * 

55, *B7 , *20, 4, *3E, 1 , *18, 1 , *AF, *32, *99, *55, *C9: P0KE*93, *A0, *55 
50 > CTRL + A B D 

60 P0KE*55B0 , *3E , * 1 0 , *32 , *93 , *55 , *C9 : P0KE*55B8 , *3E , * 1 8 , *32 , *93 , *55 , *C9 : P0KE*5D , 

*B0, *55, *B8, *55: P0KE*55C0, *3A, *FF , *EF , *B7 , *C8, *3E, *F0, *32, *93, *55, *C9: P0KE*63, *C 
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Les plus grandes 
compagnies d 1 assurance 
font confiance à SYCOMEX 









/!' M : îï-, ',ï', ' 

t~, i / i 1 : ., * * * 1 i i i 

J ; .. I. ,;«*«» l I- 

— ^ , , , 


• DIAGNOSTIC-RETRAITE : agenor 2 

• DIAGNOSTIC PREVOYANCE 

• ARTICLE 83 : optimum fiscal 

• TARIFICATION DE PROJETS-VIE . 
mise au point avec les compagnies. 

Toute une gamme de portatifs. 

Versions Minitel, Canon, Sharp, 

Disquettes compatibles PC, ... 
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